﻿Public Class ContactInformation
    Private m_sLine1 As String
    Private m_sLine2 As String
    Private m_sCity As String
    Private m_sZip As String
    Private m_sState As String
    Private m_sPhone As String
    Private m_sMobile As String
    Property Line1() As String
        Get
            Return Me.m_sLine1
        End Get
        Set(ByVal value As String)
            Me.m_sLine1 = value
        End Set
    End Property
    Property Line2() As String
        Get
            Return Me.m_sLine2
        End Get
        Set(ByVal value As String)
            Me.m_sLine2 = value
        End Set
    End Property
    Property ZipCode() As String
        Get
            Return Me.m_sZip
        End Get
        Set(ByVal value As String)
            Me.m_sZip = value
        End Set
    End Property
    Property PhoneNumber() As String
        Get
            Return Me.m_sPhone
        End Get
        Set(ByVal value As String)
            Me.m_sPhone = value
        End Set
    End Property
    Property MobileNumber() As String
        Get
            Return Me.m_sMobile
        End Get
        Set(ByVal value As String)
            Me.m_sMobile = value
        End Set
    End Property
    Property City() As String
        Get
            Return Me.m_sCity
        End Get
        Set(ByVal value As String)
            Me.m_sCity = value
        End Set
    End Property
    Property State() As String
        Get
            Return Me.m_sState
        End Get
        Set(ByVal value As String)
            Me.m_sState = value
        End Set
    End Property
    Overrides Function ToString() As String
        Return String.Format("{0}" & vbCrLf & "{1}" & vbCrLf & "{2}, {3}, {4}" & vbCrLf & "Phone: {5}", Arguments(Me.Line1, Me.Line2, Me.City, Me.State, Me.ZipCode, Me.PhoneNumber))
    End Function
End Class
